home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pbase.arc / ADD.PRG next >
Encoding:
Text File  |  1985-09-27  |  640 b   |  32 lines
  1. * ADD.PRG
  2. * usage: ADD <table-name>
  3. *  (requires cursor to be preset)
  4.  
  5. RESET FORM
  6. DROP VARIABLE ALL
  7. SWITCH TALK OFF
  8.  
  9. CLEAR SCREEN
  10. FORM FOR TABLE &1
  11. FORM SHOW TEXT
  12. FORM SHOW FIELD ALL
  13. SHOW MESSAGE 'F2 - ADDs   F10 - QUITs'
  14.  
  15. DOWHILE true
  16.   FORM READ FIELD ALL
  17.   DOCASE
  18. *   <F2>
  19.     CASE KEYPRESS()=316
  20.       FORM INSERT INTO &1
  21.       FORM CLEAR FIELD ALL
  22. *   <F10>
  23.     CASE KEYPRESS()=324
  24.       DROP FORM
  25.       DROP VARIABLE ALL
  26.       CLEAR MESSAGE
  27.       RETURN
  28.     OTHERWISE
  29.       SOUND
  30.     ENDCASE
  31.   ENDWHILE
  32.